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ROM ou RAM do computador: 


10 INPUT “"ENDERECO...";A 
20 LET N=PEEK(A) 

30 PRINT "CONTEUDO...";N 
40 GOTO 10 


Entre com o número que desejar, de 
O a 65535, e você verá o que existe na 
posição indicada. Pode ocorrer, porém, 
que ao usar PEEK para examinar deter- 
minadas áreas da memória, você rece- 
ba como resultado um valor fictício e 
não o valor real lá existente. Os conteú- 
dos da RAM dependerão sempre do que 
você estiver fazendo com o computador; 
apenas os conteúdos da ROM são fixos. 

Repare que os números são sempre 
valores inteiros entre O e 255 e, em he- 
xadecimal, de 0 a FF. Isso significa que 
todos constituem bytes simples (um byte 
contém um número hexadecimal de dois 
dígitos). Cada posição de memória con- 
tém um byte, não sendo possível guar- 
dar qualquer número maior em uma po- 
sição de memória, Se você somar 1 a FF, 
em hexadecimal, obterá 0100. Como es- 
te resultado inclui dois bytes, será pre- 
ciso armazená-lo em duas posições de 
memória: 01 em isa posição e 00 em 
outra, 

O programa que apresentamos a se- 


guir ERC e as se empregue o coman- 
- edge para guardar números na me- 


do computador. Neste estágio, é 








programa permite que você exa- 
qualquer posição de memória 


mazene apenas bytes simples, ou seja, 
qualquer número entre O e 255. 


=ERT) 


10 PRINT"CONTEUDO...” 
) 

20 INPUT"NUMERO....";N 

30 POKE 30000,N 

40 PRINT"NOVO CONTEUDO” ; PEEK (30 
000) 

45 PRINT 

50 GoTo 20 


;: PEEK (3000 


O programa apresenta primeiro o 
conteúdo da posição de memória e, em 
seguida, usa o POKE para armazenar ali 
o número indicado. Depois, mostra uma 
vez mais o conteúdo, para provar que 
o número realmente foi armazenado. 

Podemos trocar a posição de memó- 
ria para qualquer outra posição que de- 


sejarmos. Repare que nada acontece se 
tentarmos usar POKE na ROM e não 
causaremos nenhum dano ao sistema se 
o fizermos. Utilizado em certas áreas da 
RAM, porém, o POKE pode provocar 
algum desarranjo, mas nada fatal — 
simplesmente desligue a máquina por 
um momento, para reiniciar a memória, 

Tente agora utilizar o POKE para ar- 
mazenar um número maior do que 255 
e veja o que acontece. Nos computado- 
res TRS-Color e Spectrum, você obterá 
uma mensagem de erro, já que só ha lu- 
gar para um byte em cada posição de 
memória. 
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Examinando os mapas de memória 
apresentados no artigo da página 174, 
você verificará que uma porção da me- 
mória é dedicada à exibição em tela. Se 
usar o POKE para armazenar certos nú- 
meros nesta área, os caracteres realmen- 


te aparecerão na tela. Para ver determi- - 


nado caractere, armazene códigos AS- 
CII, empregando o POKE, nos compu- 
tadores TRS-80, TRS-Color e TK-2000, 
No Apple, os valores ASCII produzirão 
caracteres piscantes; para obter carac- 
teres normais, some 128 ao código AS- 
CII. Nos micros da linha Sinclair e 
MSX, utiliza-se um método diferente do 
descrito abaixo. No TK-2000, a organi- 
zação da tela não permite tal exibição. 
Tente as seguintes linhas: 


37 


TABELA DE CÓDIGO ASCIHI 


Cada caractere que o computador uti- 
liza possui um código numérico, e mui- 


| tos modelos adotam um código padrão 
| denominado Código ASCII — iniciais 


de American Standard Code for Infor- 
mation Interchange (Código Padrão 
Americano para Intercâmbio de In- 
formação). 

Estes códigos são os números usados 
em CHR$ e ASC (ou CODE no Spec- 
trum). CHR$ converte o número em um 
caractere, enquanto ASC ou CODE faz 
O inverso, convertendo um caractere em 
seu código numérico. 

Assim, quando o computador guarda 
uma palavra, o que armazena E 
é o código ASCIlLdo caractere. 


Caraciors 
ASCII 


Número Caractere Número 
de código 


ASCII de código 


32 space 62 
33 | 63 
34 É, Ena 
35 65 
36 66 
87 
"68 
69 
70 
71 
72 
73 | 
Di É Ea 
75 
76 
o 
38 
79 
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POKE 15360,65 


POKE 1024,65 


HOME: POKE 1024,193 


A letra A deverá aparecer no canto 
superior esquerdo da tela. 

No TRS-Color, se a tela tiver rolado 
antes de uma tentativa de armazenar ca- 
racteres pelo POKE, eles não aparece- 
rão em lugar nenhum. Assim, primeira- 
mente limpe a tela, digitando CLS e, de- 
pois, <RETURN> ou <ENTER>. 

Você deve estar se perguntando qual 
a vantagem de usar o POKE para colo- 
car caracteres na tela, já que dispomos 
de comandos tão eficientes como o 
PRINT A, PRINT TAB ou PRINTO. 
De fato, o PRINT é normalmente o mé- 
todo mais fácil e conveniente para po- 
sicionar os caracteres. Mas há casos em 
que o emprego do POKE se mostra van- 
tajoso. Por exemplo, se usarmos O 
PRINT para escrever na última posição 
da tela, esta sempre rolará; com o PO- 
KE, ao contrário, não haverá nenhum 
problema. Você pode imaginar o quan- 
to esta característica é útil, sobretudo em 
jogos, quando queremos mover um ca- 
ractere por toda a tela. 


OS CARACTERES NO SPECTRUM 





No Spectrum, as coisas são um pou- 
co diferentes, pois não se pode usar o 
POKE para armazenar caracteres sobre 
a tela. Um caractere é feito de pontos 
de uma matriz de oito por oito. E cada 
linha deve ser armazenada pelo POKE 
separadamente, até se completar o ca- 
ractere. 

Felizmente, as formas dos caracteres 
são armazenadas na ROM; assim, pode- 
se usar o PEEK nesta porção da memó- 
ria, a fim de examinar cada linha e, en- 
tão, exibi-la na tela com o POKE., 

O programa que apresentamos a se- 
guir utiliza o comando POKE para exi- 
bir a letra A no canto superior esquer- 
do da tela, 


10 LET dest=16384 
20 FOR a=15880 TO 15887 
30 POKE dest,PEEK a 





40 LET dest=dest+256 
50 NEXT a 


A linha 10 define o endereço da pri- 
meira linha dos caracteres da tela, O 
FOR...NEXT permite o acesso à ROM, 
onde o caractere está armazenado e a li- 
nha 30 imprime a primeira linha deste 
caractere na tela. A linha 40 incremen- 
ta o endereço da tela em 256, dando 
acesso à próxima linha, logo abaixo da 
primeira. 

O método funciona, mas, por ser um 
tanto lento, quase sempre é mais vanta- 
j0so usar o PRINT AT ou PRINT TAB 
no Spectrum. 





O USO DO PEEK NA ROM E NA RAM 


Quando executamos o primeiro pro- 
grama que examina a memória do com- 
putador, obtivemos apenas números en- 
tre O e 255. Mas muitos desses números 
são, na realidade, códigos de letras em 
ASCII, alguns dos quais formam pala- 
vras ou mesmo sentenças completas. Se 
você não conhece os códigos ASCII, ve- 
ja a tabela da página 263. 

O programa seguinte lê toda a memó- 
ria ROM do computador e converte os 
números em caracteres, antes de impri- 
mi-los na tela: 


10 FOR A=0 TO 16383 
20 LET N=PEEK A 
30 IF N>231 AND N<127 THEN PRINT 


CHRSN; 
40 NEXT A 


10 FOR A=.08000 TO &HBFF 

20 N=PEEK (A) 

30 IF N>31 AND N<127 THEN PRINT 
CHRS (N); 

40 NEXT A 


io 


10 FOR A=.HO TO A&H7ZFFE 

20 N=PEEK (A) 

30 IF N>31 AND N<127 THEN PRINT 
CHRS (N) ; 

40 NEXT A 


10 FOR A = 53248 TO 65535 
20 N = PEEK (A) 
30 IF N> 31 ANDNG<S 127 THEN 


PRINT CHRS$S (N); 
40 NEXT A 


As linhas 10 e 40 determinam a repe- 
tição do processo em toda a memória; 
a linha 20 examina cada posição, usan- 
do o POKE, e a linha 30 converte o nú- 
mero em um caractere e o imprime. Es- 
ta linha ainda limita o intervalo de nú- 
meros que serão convertidos, evitando 
que o computador imprima códigos de 
controle ou símbolos gráficos. 

Para o TRS-80, use o programa do 
TRS-Color com a linha 10 do progra- 
ma do Spectrum. 

Pode-se também imprimir o conteú- 
do da RAM do mesmo modo, bastan- 
do trocar os endereços de memória da 
linha 10. Os endereços dados abaixo im- 
primem parte da área em que os progra- 
mas BASIC estão armazenados, permi- 
tindo que você veja como o seu próprio 
programa está guardado na memória. 
Convém desligar o computador por um 
segundo antes de rodar este programa, 
para evitar que a RAM permaneça car- 
regada com restos de outros programas. 
Aqui está a nova linha 10: 


10 FOR A=23755 TO 65000 


10 FOR A=16510 TO 30000 
10 FOR A=.H1E00 TO &H1IFOO 
Use FOR 17385 TO 32767 para sis- 


temas de 16K e os finais 49151 para 32K 
e 65535 para 48K. 


é | 


LO FOR A = 2048 TO 32767 
10 FOR A=.H8000 TO &HF37F 


Experimente examinar outras áreas 
da RAM da mesma maneira. 


APLICAÇÕES 





Até aqui examinamos a memória do 
computador e usamos POKE para 
exibir caracteres na tela, Isso nos deu 
uma boa noção de como o PEEK e o 
POKE funcionam, mas não do quanto 
são úteis. 








Para as aplicações mais importantes, 
precisaremos examinar posições especi- 
ficas de memória. No Spectrum, a po- 
sição de memória 23609 controla o som 
que o teclado faz quando se pressiona 
uma tecla. Normalmente, ela contém O, 
que provoca um pequeno clic; mas, com 
um número maior — que pode chegar 
a 255 —, obtém-se um longo bip. PO- 
KE 23609,80 faz um ruído razoável. 

As possibilidades de uso do PEEK e 
do POKE dependem principalmente do 
computador que você tem. 

Retomando o exemplo anterior: os 
teclados dos demais computadores não 
fazem ruído quando uma tecla é pres- 
sionada; não têm posição de memória 
que controle o som do teclado. Assim, 
um efeito que requer cinco ou seis PEEK 
ou POKE em determinado computador 
pode ser obtido com uma palavra-chave 
BASIC em outra máquina. 

O Apple faz um bom uso do PEEK 
e do POKE. O Spectrum,o TRS-80 e'o 
TRS-Color utilizam-no ocasionalmen- 
te. No MSX o uso destes comandos é 
mais raro. 

Aqui estão algumas aplicações para 
o seu computador. 


Já vimos um POKE modificar o som 
do teclado. O POKE seguinte altera o 
espaço de tempo que uma tecla leva pa- 
ra iniciar a auto-repetição — o que é útil 
em jogos de velocidades, nos quais uma 
tecla precisa ser pressionada para mo- 
ver um caractere. Neste caso e nos se- 
guintes, X é uma variável que devemos 
ajustar por meio do comando. 


POKE 23561,X 


Normalmente, quando se liga o com-., 


putador, X é ajustado para 35. Assim, 
use um número menor que 35 para di- 
minuir o intervalo de espera e um nú- 
mero maior para obter um intervalo 
mais longo. 

Pode-se também alterar a repetição 
automática com: 
POKE 23562,X 

Este tempo X é, em geral, igual a 5. 
Assim, use X = 1 para uma auto- 
repetição rápida e X = 25 para uma 
bem lenta. 


CONTROLE DE TEMPO 


O Spectrum não tem acesso ao cro- 
nômetro interno via teclado. Para utili- 
zá-lo, precisaremos usar o PEEK na me- 
mória. O tempo é armazenado como 


três bytes em três posições consecutivas 
de memória. 


PRINT (PEEK 23672+256*PEEK 23673 
+65536*PEEK 23674) 


... informará quantos cinquenta avos de 
segundo o seu Spectrum está ligado des- 
de o último NEW. Pressione NEW pa- 
ra reiniciar o cronômetro ou POKE O 
em cada uma das três posições. 


Apresentaremos aqui mais duas apli- 
cações do POKE, que serão úteis quan- 
do você quiser escrever programas para 
outra pessoa. A primeira delas assegu- 
ra que todas as letras digitadas apare- 
çam em tipo maiúsculo. 


POKE 23568,8 


Esta instrução é útil quando se pre- 
tende que todos os dados de entrada se- 
jam consistentes. Use POKE 23658,0 
para retornar ao normal. 

Uma outra possibilidade é a altera- 
ção do cursor para qualquer caractere 
do teclado — ou mesmo qualquer pala- 
vra-chave, dependendo do número que 
foi usado no POKE: 


10 FOR X=1 TO 255 
20 POKE 23617,X 
30 INPUT as 

40 NEXT X 


A linha 30 faz um INPUT a$ apenas 
para que o cursor apareça na tela. Tão 
logo entre algum dado via INPUT, o 
programa mostrará o cursor seguinte. 
Os mais interessantes são aqueles por 
volta de X = 200 até 230. Por exemplo, 
X = 210 exibe < CONTINUE > como 
um cursor, e X = 225 exibe um sinal de 
interrogação. 


o ES 


O PEEK e o POKE são também uti- 
lizados para a auto-repetição. O TRS- 
Color normalmente não tem teclado au- 
to-repetitivo. Para mover objetos em jo- 
gos, por exemplo, é preciso manter a te- 
cla pressionada, soltá-la muito rapida- 
mente, voltar a pressioná-la e, assim, su- 
cessivamente. Uma maneira de evitar es- 
se cansativo procedimento é usar PEEK 
para verificar que tecla está sendo pres- 
sionada, O que nos permite deixar o de- 
do sobre a tecla pelo tempo que qui- 
sermos. 

Esse método já foi empregado na 
seção de Programação de Jogos. Veja 
como funciona: quando pressionamos 


uma tecla, um código numérico especial 
é colocado em uma das seis posições de 
memória. O PEEK checa, então, estas 
posições, para verificar que tecla está 
sendo pressionada. O emprego deste re- 
curso é muito simples. O programa se- 
guinte, por exemplo, usa teclas de cur- 
sor para desenhar na tela: 


10 PMODE 0,1 

20 PCLS 

30 SCREEN 1,1 

40 X=127:Y=95 

50 IF PEEK(341)=223 THEN Y=Y-2 

60 IF PEEK(342)=223 THEN Y=Y+2 

70 IF PEEK(343)=223 THEN X=X-2 

80 IF PEEK(344)=223 THEN X=X+2 

90 IF X<O OR X>255 THEN X=-255* 
(X<0) 

100 IF 
* (Y<0) 
110 PSET (X,7,5) 
120 GOTO 50 


Y<O OR Y>191 THEN Y=-191 


A tabela da página 265 mostra o có- 
digo numérico gerado para cada tecla e 
a posição de memória em que elas são 
armazenadas. Se, por exemplo, pressio- 
nássemos A, PEEK (339) seria igual a 
267. Podemos verificar, assim, de onde 
vieram os números escritos após os 
PEEK nesse último programa. 


TELA MULTICOLORIDA 





O programa seguinte traça linhas de 
diferentes cores na tela. Colocando-as 
perto umas das outras, obteremos no- 
vos matizes. Você pode pressionar qual- 
quer tecla durante a execução do pro- 
grama, se quiser interromper o desenho 
e examinar o número para determina- 
do matiz. 


10 PMODE 3, 1:SCREEN 1,0:PCLSS3 
20 FOR K=0 TO 255 

30 POKE 178,K 

40 LINE(78,46)-(178,146),PSET,B 
F 

50 IF INKEYS<>"” THEN 80 

60 NEXT 

70 GOTO 70 

BO CLS:PRINT K 


A posição de memória 178 controla 
a cor do primeiro plano. Esta varia, em 
geral, de O a 3 (4 cores), mas, se usar- 
mos o POKE para armazenar um valor 
maior que K=3, obteremos novas lis- 
tras coloridas. 

Utilizamos PSET na linha 40 porque 
estamos manipulando cores de primeiro 
plano. Para trabalhar as cores de plano 
de fundo, troque PSET por PRESET e 
substitua o valor 178 na linha 30 por 179. 

Parando o programa, poderemos 
examinar valor de K para determinado 
matiz e, assim, usar esta cor em outros 
programas gráficos. 








COMO ALTERAR A VELOCIDADE 


A possibilidade de acelerar o compu- 
tador é interessante, sobretudo, para jo- 
gos — você pode fazê-los andar mais de- 
pressa se, por exemplo, o jogador atin- 
gir um determinado número de pontos. 

Utilize o primeiro POKE para acele- 
rar e o segundo para voltar ao normal. 


POKE 65495,1 
POKE 65494,1 


Pode-se usar qualquer número em lu- 
gar do 1, pois o efeito será o mesmo. 

Existe apenas um problema com es- 
tes POKE — como eles não funcionam 
em qualquer processador, corre-se o ris- 
co de que o programa prejudique o sis- 
tema. Mas não custa nada experimentá- 
los uma vez em seu computador. 

E, agora, se você considera determi- 
nado jogo muito rápido, aqui está uma 
maneira de desacelerar a saída na tela. 


POKE 359,60 


Para voltar ao normal, use POKE 
359,67, mas não no CP-400 Color, pois 
ele desativa o retorno automático ao 
modo texto. 


No Apple é possível controlar a por- 
ção da tela que iremos utilizar. O ende- 
reço 32 contém a margem esquerda; 33, 
a largura máxima da linha; 34, o núme- 
ro de linhas da margem superior e 35, 
da margem inferior. Modificando os va- 
lores desses endereços com POKE 
pode-se programar a janela de textos. É 
o que faz o programa seguinte. 


5, HOME : VTAB 5: HTAB 11 


BRRLO POKE 32,10: POKE 33,20 


20 POKE 34,4: POKE 35,20 


30 PRINT "JANELA "; 
40 GOTO 30 


Outra utilidade destes comandos é 
possibilitar uma “'varredura do tecla- 
do"”, verificando o valor contido na po- 
sição — 16384 — sendo maior que 127, 
sabe-se que alguma tecla foi pressiona- 
da, Na realidade, esta posição de memoó- 
ria contém o código ASCII do caracte- 
re da tecla pressionada mais 128. 

Sempre que fizermos esse tipo de 
“varredura”, devemos colocar o valor 
O na posição — 16368, para que uma no- 
va verificação seja possível. O desrespei- 
to a esta regra pode prejudicar seus pro- 
gramas. O programa que se segue exem- 
plifica a utilização desse recurso. 


LO HOME 

20 À = PEEK ( - 16384): POKE 

- 16368,0 

30 IF A > 127 THEN PRINT cCHR 
SuAÃ = 120)4 


40 coTO 20 


O programa funciona como uma má- 
quina de escrever. Os caracteres corres- 
pondentes às teclas pressionadas são 
mostrados no vídeo. 

O uso do PEEK também possibilita 
a produção de sons. Toda vez que veri- 
ficamos o conteúdo do endereço 

— 16336, um clic é produzido. Faça uma 
experiência, adicionando as linhas abai- 
xo ao programa anterior. 


30 IF A > 127 THEN PRINT CHR 


3 (A - 128);: FOR I = | TO 10:X 
“ PEEK ( = 16336): NEXT 





COMO ALTERAR A TELA 


O Apple pode mostrar texto e gráfi- 
cos de baixa e alta resolução em duas 
“náginas diferentes”. Alguns POKE 
são capazes de modificar rapidamente 
as características da tela. 


POKE -16304,0 

Troca a tela de textos pela tela gráfi- 
ca, sem limpar esta última. 
POKE -16303,0 

Troca a tela gráfica de qualquer tipo 
pela tela de textos, sem redefinição da 
janela de textos. 
POKE -16302,0 

Permite a exibição de gráficos em tela 
cheia, ou seja, impede o aparecimento 
de texto nas quatro linhas inferiores da 
tela gráfica. 


POKE -16301,0 


Troca a tela cheia por gráfico mais 
texto, ou seja, faz reaparecer as quatro 
linhas de texto na parte inferior da tela. 


POKE -16300,0 

Passa da página 2 para a página 1. 
Não limpa a tela nem move o cursor. 
POKE -16299,0 

Passa da página | para a página 2, 
da mesma maneira, 
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e POKE realmente úteis. 

O modo como este computador or- 
ganiza sua memória de vídeo impede 
que coloquemos caracteres diretamente 
na tela, usando POKE. Para isto, exis- 
te no BASIC do MSX o comando VPO- 
KE, bem como o correspondente 
VPEEK. Os 16 kbytes da memória de 
vídeo só podem ser acessados por meio 
desses dois comandos. 

O computador utiliza essa memória 
não só para mostrar caracteres e gráfi- 
cos; parte dela armazena informações 
para o vídeo, tal como o padrão das le- 
tras do conjunto de caracteres. 

O modo como isso é feito — ou se- 
ja, a organização da memória de ima- 
gem — varia conforme o tipo de tela es- 
colhida pelo comando SCREEN. 

Para que não tenhamos que decorar 
uma grande quantidade de endereços de 
memória, o MSX usa variáveis do sis- 
tema para guardar os endereços. 

Vamos tentar entender esta organi- 
zação. No modo texto de 40 colunas 
(SCREEN 0), a variável BASE (0) con- 
tém o endereço inicial de uma porção da 
memória denominada tabela de nomes. 
Qualquer valor colocado em uma das 
960 posições, a partir deste endereço, fa- 
rá surgir na tela o caractere de código 
ASCII correspondente. Assim, O pro- 
grama seguinte enche a tela com o ca- 
ractere A, cujo código é 65. 


10 SCREEN O 

20 FOR 1=0 TO 959 

30 VPOKE BASE(0)+1I,65 
40 NEXT 


Note que, para colocarmos o carac- 
tere A na i-ésima posição da tela, deve- 
mos usar VPOKE BASE (0) + 1,65. 

No modo texto de 32 colunas, BA- 
SE (5) contém a tabela de nomes e exis- 
tem 768 posições na tela. Assim, temos 
um programa análogo. 


10 SCREEN 1 
20 FOR I=0 TO 767 
30 VPOKE BASE(5)+1,65 
40 NEXT 

O modo gráfico de alta resolução 
também possui uma tabela de nomes, 
cujo endereço inicial fica em BASE (10), 
com 768 posições. O computador mul- 
tiplica por 8 o número ali colocado por 
VPOKE. Em seguida usa o resultado 
dessa operação para obter o padrão e as 
cores daquela posição. O pagrão dos 
pontos é armazenado em outra-parte da 
memória de vídeo, cujo endereço inicial 
está em BASE (12). Outra posição de 
memória é reservada para as cores dos 
pontos e seu início está em BASE (11). 
Para entender melhor o processo, digi- 
te o seguinte programa: 


10 SCREEN 2 

20 FOR I=0 TO 767 

30 VPOKE BASE (10)+1,0 

40 NEXT 

50 FOR 1I=0 TO 7 

60 VPOKE BASE(11)+I,RND(1)*256 
70 VPOKE BASE (12)+I,RND(1)*256 
80 NEXT 

90 GOTO 50 


As linhas de 20 a 40 enchem a tabela 
de nomes com o número 0. Este núme- 
ro é multiplicado por 8, dando 0. Isso 
significa que o computador irá aos oito 
primeiros endereços a partir da posição 
O na tabela de padrões, para obter o pa- 
drão; e aos oito primeiros endereços a 
partir da posição O da tabela de cores, 
para obter a combinação de cores des- 
tas posições. Como ainda não há nada 
nas duas tabelas, nenhum desenho é fei- 
to a princípio. 

As linhas de 50 a 80 preenchem as oi- 
to primeiras posições, a partir do ende- 
reço 0, da tabela de padrões com núme- 
ros aleatórios. Fazem o mesmo com os 
endereços da tabela de cores. Estes são 
justamente os locais onde o computador 
vai buscar a cor e o padrão de posições 
da tabela de nomes que tenham o nú- 
mero 0. Como a tabela de nomes está 
cheia de zeros, todas as posições do ter- 
ço superior da tela assumirão a mesma 
cor e padrão simultaneamente. A linha 
90 repete o processo. 

Você deve estar se perguntando por 
que o efeito só foi obtido no terço su- 
perior da tela. A explicação está no fa- 
to de que 255 é o maior valor que um 
endereço pode conter. Assim, o compu- 
tador procurará o padrão e a cor de um 
determinado endereço da tabela de no- 
mes da seguinte forma: o terço superior 
da tela tem suas cores e padrões nos en- 
dereços de O a 2055 das tabelas de cores 
e padrões; o terço médio, dos endereços 
de 2048 a 4096; e o terço inferior, de 
4097 a 6143. Mude as seguintes linhas 
no programa anterior, para ver o mes- 
mo efeito no terço médio da tela: 


60 VPOKE BASE(11)+1+2048,RND(1) 
*2506 
70 VPOKE BASE (12)+1+2048,RND(1) 
*256 


No modo gráfico de baixa resolução, 
a tabela de nomes tem endereço inicial 
guardado em BASE (15). O número co- 
locado em uma das 768 posições desta 
tabela é multiplicado por 8, para que ob- 
tenhamos a posição da tabela de cores 
em que estão armazenadas as cores da 
posição. A tabela de cores tem endere- 
ço inicial em BASE (17). Não há tabela 
de padrões. Mude as seguintes linhas no 
programa anterior, para compreender 
melhor o processo: 





10 SCREEN 3 
30 VPOKE BASE(15)+I,0 
60 VPOKE BASE(17)+I,RND(1)*256 


Nas telas de texto, boa parte da me- 
mória é utilizada para armazenar os pa- 
drões das letras — de uma forma seme- 
lhante aos padrões gráficos. Assim, 
quando colocamos na tabela de nomes 
um código ASCII, o computador mul- 
tiplica este valor por 8, para obter a po- 
sição em que a forma de letra está ar- 
mazenada na tabela de padrões. O en- 
dereço inicial desta tabela está em BA- 
SE (2), na tela de 40 colunas. O progra- 
ma a seguir mostra na tela estes padrões, 
depois de lê-los com VPEEK. 


10 SCREEN 0 

20 FOR 1=65 TO 191 

30 VPOKE BASE (0)+1,1I 

40 FOR J=0 TO 7 

50 A=VPEEK (BASE (2) +8*1+J) 

55 Z5="00000000"+BINS (A) 

60 LOCATE 10,10+J: PRINT RIGHTS ( 
25,8) 

70 NEXT J:FOR K=1 TO 500:NEXT K 
BO NEXT I 


Mude algumas linhas para obter o 
mesmo resultado na tela de 32 colunas, 
onde a tabela de padrões fica em BASE 
(5). 


10 SCREEN 1 . 
30 VPOKE BASÊ(5)+1,1 
50 A=VPEEK (BASE (7) +8*1+J) 


Na tela de 32 colunas podemos ob- 
ter também caracteres coloridos. Para 
isso, existe uma tabela de cores com ape- 
nas 32 posições. O número reduzido de 
posições significa que cada conjunto de 
oito caracteres terá necessariamente a 
mesma cor, conforme seu código ASCII 
— não conforme sua posição na tela, 

O programa seguinte demonstra isto, 
imprimindo todo o conjunto de carac- 
teres e depois enchendo a tabela de co- 
res — BASE (6) — com cores aleatórias. 


10 SCREEN 1 

20 FOR I=0 TO 255 

30 VPOKE BASE(5)+I,I 

40 NEXT I 

50 FOR 1=0 TO 31 

60 VPOKE BASE (6)+I,RND(1)*256 
70 NEXT 

80 GoTo 50 


NÃO DESANIME 





A organização da memória de vídeo 
do MSX é complicada. Nossa intenção 
foi motivá-lo a conhecer melhor seu 
computador; em outra qportunidade, 
você poderá compreender com mais cla- 
reza a organização desta memória. 
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MAIS CÓDIGOS 
DE CONTROLE 





Anteriormente, vimos como utilizar 
códigos de controle dentro de um pro- 
grama em BASIC, por meio da função 
CHRS. Esta retorna o caractere corres- 
pondente a um determinado código nu- 
mérico ASCII. Diversos exemplos fo- 
ram dados para micros da linha TR5-80. 

Agora vamos examinar como micros 
de outras linhas podem trabalhar com 
códigos de controle. 


Lelo! 


Alguns computadores não permitem 
o acesso a todos os códigos de contro- 
le. Os da linha Apple II, por exemplo, 
ao contrário dos da linha TRS-80, têm 
poucos usos para a função CHRS$ com 
esta finalidade. 

Nos micros da linha Apple, como ve- 
remos adiante, a entrada dos códigos de 
controle é feita comumente por meio do 
próprio teclado, pois este dispõe de uma 
tecla <CONTROL >, que é pressiona- 
da em combinação com outras. 


COMANDOS DO DOS 


Emprega-se muito a função CHRS 
para acionar comandos do DOS (siste- 
ma operacional de disquetes), a partir 
de programas em BASIC. O código de 
controle que possibilita o uso de um co- 
mando do DOS em um programa é o 4. 

Um comando do DOS em geral só 
pode ser utilizado de forma direta (sem 
ser precedido de uma linha de progra- 
ma). Se quisermos, por exemplo, exa- 
minar a lista de arquivos em um disque- 
te, digitamos o comando direto: 





CATALOG 
Se usarmos dentro de um programa: 


100 CATALOG 


... O comando não funcionará quando 
o programa for executado. Para que is- 
to ocorra, devemos colocar: 


100 PRINT CHARS (4) +"CATALOG” 


Quando esta linha é executada, o in- 
terpretador BASIC examina o primei- 
ro caractere da mensagem a ser trans- 
mitida para o vídeo, com o comando 
PRINT. Se ele tiver o código ASCII 


igual a 4, a mensagem será enviada ao 
sistema operacional, como se fosse uma 
frase de comando. 


ECONOMIZE MEMÓRIA 





Existem outras maneiras de se colo- 
car o código 4 em uma linha PRINT. O 
seguinte expediente economiza memó- 
ria, quando muitas linhas PRINT com 
CHRS$ (4) são necessárias ao programa: 


90 LET C4S=CHAS (4) 
100 PRINT C4$;"CATALOG” 
110 PRINT C43;"RUN PROGZ” 


Pode-se também pressionar as teclas 
<CONTROL > e D simultaneamente, 
logo depois das primeiras aspas que se 
seguem ao comando PRINT, e, em se- 
guida, continuar a digitar normalmen- 
te o comando do DOS que se deseja. 

Este método apresenta um inconve- 
niente: o código de controle 4 (que é in- 
serido por <CRTL> <D>) fica “in- 
visivel” na listagem, podendo não ser 
notado posteriormente e nem aparecer 
na listagem da impressora. 

Em geral, o uso da tecla <CON- 
TROL > nos micros Apple dá acesso a 
uma série de funções via teclado. 


Existe uma boa razão para se usar có- 
digos de controle nos micros da linha 
Spectrum (como o TK-90X): economi- 
zar memória. Os códigos podem ser em- 
pregados para substituir as instruções 
PAPER, INK, BRIGHT e FLASH. São 
digitados ao se pressionar as teclas 
<CAPS SHIFT> e <SYMBOL 
SHIFT > e, em seguida, um número (o 
que equivale à tecla <CONTROL > de 
outros micros). O número determinará 
qual instrução está sendo substituída. 

Para PAPER, entre simplesmente o 
número da cor (1 a 7). Por exemplo, 
usamos o 2 para a cor vermelha, 

Para INK, pressione <CAPS 
SHIFT > com o número da cor. 

Para obter BRIGHT, pressione o nú- 
mero 9 e, para desligá-lo, pressione 8. 

Finalmente, para obter FLASH, 
pressione <CAPS SHIFT>, seguido 
do número 9. Para desligá-lo, use o nú- 


Os códigos de controle podem ser 
usados em um programa para acionar 
funções especiais e substituir comandos 
em BASIC. Veja seu emprego 

em micros de diferentes linhas. 


mero 8. Lembre-se de pressionar 
<CAPS SHIFT> e <SYMBOL 
SHIFT > primeiro, de cada vez. Veja 
quanta memória foi economizada em 
uma linha como esta: 


10 PRINT PAPER 2; INK 6;"MENU' 


As palavras-chave PAPER e INK e 
os dois pontos e vírgulas ocupam 1 byte 
de memória cada, enquanto os números 
2 e 6 ocupam seis. Usando os códigos 
de controle, a linha ocupará apenas 1 
byte para o par de teclas SHIFT, mais 
| byte para o código de controle. Isto 
significa uma economia de seis bytes por 
instrução. Assim, um programa que 
usasse vários comandos de cor ficaria 
bem menor em tamanho. 

Estes comandos precisam ser digita- 
dos dentro de aspas para que funcionem 
corretamente. Portanto, no exemplo an- 
terior, digite primeiro: 

10 PRINT " 

... Cem seguida digite os códigos de con- 
trole para PAPER 2 e INK 6, confor- 
me foi explicado acima, seguidos pelo 
restante da linha. Não se esqueça das as- 
pas finais. 

Os códigos não ocupam espaço visi- 
vel na listagem, mas funcionam imedia- 
tamente, produzindo texto colorido não 
só na listagem como na tela. 

Pode-se utilizar este recurso simples- 
mente para enfatizar determinados tre- 
chos de uma listagem de programa na 
tela. Neste caso, coloque os códigos de 
controle fora das aspas, a não ser que 
você queira que as cores também apa- 
reçam na tela. 





INCONVENIENTE 


O procedimento descrito acima apre- 
senta um inconveniente: os códigos de 
controle ficam “invisíveis” na tela e na 
listagem da impressora, não podendo 
ser notados posteriormente. Se você qui- 
ser mudar alguma cor de frente (INK) 
ou de fundo (PAPER) no mesmo pro- 
grama, precisará apagar a parte inicial 
da linha (ou até ela toda, se não souber 
localizar onde estão os códigos de con- 
trole) e inserir novos códigos pelo mé- 
todo acima. 
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Você já digitou o programa conten- 
do as descrições dos locais que fazem 
parte desta aventura? Então deve estar 
ansioso para fazer com que o jogador 
comece a explorá-los, possibilitando-lhe 
deslocar-se de um local para outro. Pa- 
ra que isso aconteça, você precisará de- 
finir os movimentos possíveis a partir de 
um determinado local; deverá estabele- 
cer critérios que permitam julgar as res- 
postas dadas pelo jogador e, finalmen- 
te, determinar os caminhos que podem 
ser percorridos. 

Apresentaremos, adiante, algumas 
rotinas necessárias ao desenvolvimento 
do programa de aventuras. Estas roti- 
nas serão responsáveis pela correta des- 
crição da localização do jogador e pela 
apresentação das saídas que lhe serão 
permitidas. Você digitará cada opção e 
aprenderá a escrever a seção de progra- 
ma que movimenta o jogador no mun- 
do da aventura, de acordo com a opção 
que escolheu. 


É fundamental conhecer a localiza- 
ção exata do jogador, a qualquer mo- 
mento, dentro do jogo. Para isso, O pro- 
grama usa uma variável L, que indica 
Local. O valor dessa variável muda de 
acordo com a localização do jogador, 
a cada movimento realizado. 

Para começar, você deve informar ao 
computador qual a posição do jogador 
no início da aventura. A primeira seção 
de um programa para fazer isso é dada 
em seguida. Carregue a parte do progra- 
ma que você já possui, por meio do co- 
mando LOAD, e adicione estas novas 
linhas: 


100 CLB : 
LET LA=Q 
270 REM **POSICAO INICIAL** 
280 LET L=15 
290 GOTO 330 


Tur 


270 REM **POSICAO INICIAL** 





LET DA=0: LET TA=0: 





280 L=15 
290 GOTO 330 


O número 15 indica a localização da 
porta de entrada da Cidade Oculta. Se 
você desejar que o jogador inicie a aven- 
tura em outro local, bastará mudar o va- 
lor da variável L. Adiante, você verá co- 
mo ajustar o valor de L durante o jogo, 
de modo que passe a indicar localização 
diferente. Por enquanto, devemos pre- 
parar o programa para receber do joga- 
dor informações indicativas do caminho 
que pretende seguir. 


Para descobrir os mais estranhos 
lugares sem sair de casa, basta entrar 
no mundo da aventura. Veja aqui como 
proceder para dar movimento ao 
aventureiro e iniciar as explorações. 


RESPOSTAS 





Para que o computador possa com- 
preender e agir corretamente de acordo 
com as respostas dadas pelo jogador, 
você deve dar à máquina um conjunto 
de palavras que ela passe a identificar. 

Neste estágio, o computador precisa 
conhecer apenas as quatro direções, O 
que pode ser feito por meio do cordão 
R$. Esse cordão é carregado com as pa- 
lavras indicativas de direção, colocadas 
em uma instrução DATA, 
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110 REM **PREPARACAO DAS MATRI 
ZES DE RESPOSTAS** 

120 DIM R$(19,40): DIM R(19) 
130 FOR K=1 TO 4: READ RS(K),R 
(K): NEXT K 

150 DATA "NORTE”",1,"SUL”,1,"LE 
STE”,1,"OESTE*,1 


Tu E 


110 REM**PREPARAR MATRIZES DAS 
RESPOSTAS** 

120 DIM R$(19),R(19) 

130 FOR K=1 TO 4"READ R$S(K),RIK 
) :NEXT 

150 DATA NORTE, 1,SUL,I,LESTE,I, 
QESTE,1 





Observe que as matrizes foram di- 
mensionadas na linha 120, podendo 
agora armazenar todas as respostas que 
o jogo requer. Como precisamos, ini- 
cialmente, de quatro direções, apenas os 
quatro primeiros elementos das matri- 
zes R$e R serão utilizados. A instrução 
FOR...NEXT, na linha 130, que lê R$ 
e R por meio do comando READ, va- 
ria, assim, de um a quatro. As direções 
e os valores a ela associados estão colo- 
cados na instrução DATA, na linha 150. 

Essas informações, entretanto, ainda 
não podem ser usadas pelo jogador. An- 
tes, será necessário dotar o programa de 
uma rotina que indique onde ele está lo- 
calizado. 








COMO ENCONTRAR O LOCAL 


Para que o jogador saiba onde se en- 
contra, após efetuar cada movimento, 
é necessário fornecer-lhe uma descrição 
de sua posição. Você já digitou esta des- 








m 


SEE a e. TT — 


crição. Ela está nas linhas de comentá- 
ros, que se iniciam com a palavra REM, 
Agora, só nos falta uma rotina que as- 
socie O número contido na variável L, 
que indica a posição, à descrição corres- 
pondente. Neste ponto, os usuários do 
Spectrum devem digitar uma rotina 
extra: 





E | 
e ay 


POKE 23658,8 
FOR M=1 TO 
NEXT M: NEXT 


20 DIM G(11,4): 
30 FOR N=1 TO 4d: 
11; READ G(M,N): 
N 

40 DATA 0,0,0,5020,0,0,5050, 
5080,0,5110,0 

50 DATA 5140,0,0,5180,5210, 
5240,5270,5300,0,0,0 

60 DATA 0,5330,0,5360,0,0,0,0 
(10,0,0 

70 DATA 1010,1150,1240,1310, 
1410,1460,1500,1360,1080,1550 
(53110 
300 REM 
310 CLS 
330 IF L<l1l THEN 
: GOTO 400 
340 IF L<21 THEN 
2): GOTO 400 
350 IF L<26 THEN 
13) 


**ACHAR O LOCAL** 
GOSUB G(L,1) 
GOSUB G(L-1O 


GOSUB G(L-20 


f. | | "mm | 


Tu | 


LIS FE HO 


300 REM **ACHAR LOCAL** 

310 CLS 

330 IF L<1ll THEN ON L GOSUB 0,0 
,/0,5020,0,0,5050,5080,0,5110:G0 
TO 400 

340 IF L<21 THEN ON L-10 GOSUB 

5140,0,0,5180,5210,5240,5270,53 
00,0,0:GOTO 400 

350 IF L<26 THEN ON L-20 GOSUB 

0,5330,0,5360 


Antes de escrever esse tipo de rotina, 
verifique se o número correspondente a 
cada descrição de localização está cor- 
reto. Começando com a localização 1, 
faça uma lista dos números de linhas 
correspondentes a cada descrição. Se 
não houver descrição para uma deter- 
minada localização, escreva o número 
O. Nesta aventura, já dispomos de des- 
crição para a localização de número 4, 
mas não para as de número 1,2 e 3, 

De posse do conjunto contendo os 
numeros de linhas correspondentes à 
descrição de cada localização, você po- 
de começar a escrever a rotina. Em to- 
dos os computadores, exceto o Spec- 
trum, esta rotina é constituída de uma 
sequência de operações que verifica o 
valor da variável L e usa o comando 
ON...GOSUB. No caso do Spectrum, 
que não possui este comando, o núme- 


ro das linhas é obtido de uma matriz. 


H PR 


— A end q Ta e 








ES A TES TD 


Nos outros programas, o conjunto 
contendo os números de linhas está nas 
instruções colocadas nas linhas 330 a 
350. Inicia com a localização | no co- 
meço da linha 330 e termina com a lo- 
calização 24 no final da linha 350. 

No Spectrum, use o valor de L para 
ter acesso a um elemento da matriz cons- 
truído pelas instruções apresentadas nas 
linhas 20 e 30. Note que a matriz está 
super dimensionada em relação à quan- 
tidade de locais existentes na aventura. 
Os números excedentes são todos iguais 
a zero e não têm nenhuma influência no 
desenrolar da aventura. O dimensiona- 
mento extra foi feito porque a matriz se- 
rá utilizada em partes do programa que 
mais tarde apresentaremos. 

Uma observação válida somente pa- 
ra os usuários do Spectrum: o coman- 
do POKE, na linha 20, faz com que o 
computador aceite apenas letras maiús- 
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EEE DT 
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culas. Isto evitará problemas no mo- 
mento de se comparar as respostas da- 
das peio jogador com as armazenadas 
na variável R$. 


APRESENTAÇÃO DA 


5 DIRECÕES 


Além da descrição do local onde se 
encontra, o jogador também precisa co- 
nhecer as saídas disponíveis. O progra- 
ma deve verificar, pelas variáveis N, E, 
S, e W, quais são estas saidas. A infor- 
mação é necessária porque nem sempre 
se pode sair em todas as direções, estan- 
do em um determinado local. A próxi- 
ma seção do programa indica as saídas. 
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400 IE DA<>1I THEN PRINT '"POD 440 IF W>0 THEN PRINT TAB(13):” | riável for maior do que zero, a direção 
E SEGUIR”; OESTE” escolhida é uma direção possivel — ou 
tule N>0 THEN PRINT TAB ll; seja, é uma saida. Essa rotina pode ser 
E E” a utilizada, sem modificações, em qual- 
anda E>0 THEN PRINT TAB ll; [BIG quer aventura que empregue um setora- 
430 IF S>0 THEN PRINT TAB ll; 390 REM **APONTAR DIRECOES** mento desse tipo. 
"SUL” 400 IFL< >110R(LA=1AN 
440 IF W>0 THEN PRINT TAB ll; D OB(6) = - 1 THEN PRINT : PR INSTRUCÕES 
"QESTE” INT "PODE SEGUIR ";: GOTO 410 dE a de qi | 
405 GOTO 460 à Oo: eanhece ac di. 
410 TE N>O THEN PRINT TAB( Agora que O jogador conhece as di 
ns EV; 11): "NORTE" reções possíveis, podemos perguntar- 
ma 420 TF E > O THEN pRINTTAB( lhe: let ONDE?”. A rotina res- 
“00: REM ReTNDICARDTRECOL SA AD ;TLESTES ss pernas! no esta pergunta é apresenta- 
400 IF L<>11 OR (LA=1 AND OB(6) “US Louro dad sds | 
=-— INT: il DE SEGU ; pt RaE=E== 
TOR RETA 440 IF W> O THEN PRINT TAB( 


IR ";ELSE 460 


11):;" OESTE” 


O it | 
En 


EE 


410 IE N>0 THEN PRINT TAB(13);" | 
NORTE” o | 450 REM **INSTRUCOES** 

420 IE E>O THEN PRINT TAB(13);" A rotina apresentada simplesmente 460 INPUT INVERSE 1;"PARA OND 
LESTE” verifica os valores das variáveis N,S, E, E ”: LINE IS 

430 IE S>0 THEN PRINT TAB(13);” e W que você definiu, baseado em seu 470 GOSUE 3010 

SUL” mapa de localidades. Se o valor da va- 515 GOTO G(1,4) 


1 om O 
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450 REM **INSTRUCOES** 
460 PRINT: INPUT"PARA ONDE”; IS 
470 GOSUB 3010 


A resposta dada pelo jogador é arma- 
zenada na variável I$8. O programa ve- 
rificará o tipo de resposta e atuará de 
acordo. 

A próxima linha — linha 470 — des- 
via O fluxo do programa para uma sub- 
rotina localizada na linha 3010. Esta 
sub-rotina é responsável pela validação 
da resposta do jogador. 


600 REM **ROTINA INSTR.** 
610 LET IN=Q: IF LEN TS>2LEN X5S 
THEN RETURN 
620 FOR K=1 TO (LEN XS-LEN Y5+ 
1) 
630 IF Y5=XKS(K TO K+LEN Y$-1) 
THEN LET IN=K: GOTO 650 
640 NEXT K 
650 RETURN 
3000 REM **ROTINA VERIFICACAO** 
3010 LET N$="": LET X$=I1IS: LET 


Y5=" “": GOSUB 600: LET I=IN 
3020 IF 1I=0 THEN LET V$=IS: GO 
TO 3050 


3030 LET V$=IS( TO I-1) 

3040 LET NS$=IS(I+1 TO ) 

3050 LET I=0 

3060 FOR K=1 TO 19 

3070 IF VS=RS(K, TO LEN VS) THE 
N LET I=R(K): LET IS=VS( TO 1) 
3080 NEXT K 
3090 RETURN 


3000 REM **INSTRUCAO DE CHECAGE 
pH * 

3010 N$="": I=INSTR(IS," ”) 

3020 IF 1=0 THEN V$=IS*GOTO 305 
Õ 

3030 V5S=LEFTS(IS,I-1) 

3040 NS$=MIDS(IS,I+1) 

3050 1=0 

3060 FOR K=1l TO 19 

3070 IF INSTR(BRS(K),VS)=1 THEN 

I=A (K): IS=LEFTS (VS,1) 

3080 NEXT 

3090 RETURN 


A | 
| ] , | | 


3000 REM **ROTINA DE VERIFICA 

CAO** 

3010 NS = "": FOR Z = 1 TO LEN 
(15): TE MID$S (18,2,1) * * * 

THEN I = Z: GOTO 3020 


3015 NEXT :I = O 

3020 IF I = O?THENUVS = IS: GO 
To 3050 

3030 V$ = LEFTS (IS,I - 1) 
040 N$ = MIDS (1S,1L + 1) 

3050 I = O 

3060 FOR K = 1| TO 19 

3070 IF V$ = LEFTS (RS(K), LE 












H 





N (V$)) THEN I = R(K):IS = LEF 


TS (V$,0) 
3080 NEXT 
3090 RETURN 


A rotina verifica se a variável IS com- 
põe-se de duas palavras. Em caso afir- 
mativo, a primeira palavra é chamada 
de V$e a segunda de N$, A variável VS 
contém um verbo — como PEGAR, 
MATAR, LEVAR — e todas as pala- 
vras indicativas de direção: NORTE, 
SUL, LESTE e OESTE. A variável NS 
armazena os nomes dos objetos que fa- 
zem parte da aventura, 

Os computadores TR5S-Color e MSX 
usam o comando INSTR, na linha 3010, 
para verificar se há algum espaço ha res- 
posta que foi armazenada em IS, Este 
espaço será indicativo da existência de 
duas palavras: a que pertence a V$ea 
que pertence a N$. No Spectrum e no 
Apple não existe o comando INSTR. 
Para substituí-lo, usamos uma pequena 
sub-rotina, colocada nas linhas 600 a 
650. 

Se um espaço for encontrado, a ins- 
trução na linha 3030 separa IS em suas 
componentes V$ e N$. Se não houver es- 
paço, a linha 3020 considera VS igual a 


IS. 


RES ao! 
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A parte final da sub-rotina, composta 
pelas linhas 3060 a 3080, compara as res- 
postas dadas com o conteúdo da matriz 
R$. Como sabemos, a matriz R$ con- 
tém as palavras indicativas das direções 
que podem ser seguidas. Depois você ve- 
rá como fazer para expandir o conteu- 
do da matriz R$. Pela instrução da hi- 
nha 3070, o programa verifica se ha 
igualdade entre os conteúdos R$ e VS. 
Se houver, a variável [ assume o valor 
da variável R. O programa reconhecera 
a igualdade dos conteúdos verificando 
se o valor de | é maior que zero. A últi- 
ma parte da linha 3070 retira a primei- 
ra letra de V$ e armazena-a na variável 
I$. A variável IS será utilizada depois, 
para fazer com que o jogador se mo- 
vimente. 

As sub-rotinas apresentadas adap- 
tam-se a qualquer aventura, sem neces- 
sidade de grandes modificações. Apenas 
um detalhe pode precisar de alguns ajus- 
tes: a duração do comando 
FOR...NEXT, na linha 3060. 


MOVIMENTOS 





O passo seguinte consiste em adicio- 


PROGRAMAÇÃO DEJOGOS 1 


nar uma rotina destinada a manipular 
a variável L, indicativa de localização, 
de acordo com o valor assumido pela 
variável IS. Esta rotina é apresentada em 
seguida: 


1000 REM **ROTINA MOVIMENTO** 
1010 IF 15$="N” AND N>O THEN LE 


T L=L-6: GOTO 310 
1020 IF IS$="L”" AND E>O0 THEN LE 
T L=L+l: GOTO 310 
1030 IF 1$="S" AND S>0 THEN LE 
T L=L+6: GOTO 310 
1040 IF 15="0" AND W>0 THEN LE 
T L=L-1l: GOTO 310 


1050 REM **SE NAO HA LOCAL POSS 
IVEL NESSA DIRECAO** 

1060 PRINT '"DESCULPE, VOCE NAO 
PODE SEGUIR NESTA DIRECAO.”: 

GOTO 330 


1000 REM **ROTINA DE MOVIMENTO* 


al 

1010 IF IS="N” AND N>O0 THEN L=L 
-6:GOTO 310 

1020 IF 1$="L” AND E>0U THEN L=L 
+1L:GOTO 310 























1030 IF 1$="5" AND 5>0 THEN L=L 
+6:GOTO 310 

1040 IF 18="0" AND W>0 THEN L=L 
-1:GOTO 310 

1050 REM **SE NÃO HOUVER LOCAL 

POSSIVEL NESSA DIRECAO*A 

1060 PRINT: PRINT"DESCULPE - VOC 
E NAO PODE SEGUIR POR ESTE CAMI 
NHO.":GOTO 3430 


Como você está lembrado, o ponto 
de partida da aventura foi um mapa 
com uma largura de seis posições. Mo- 
ver o jogador por essas posições signi- 
fica alterar o valor da variável L por um 
fator baseado no tamanho do mapa. 
Por exemplo, para fazer com que o jo- 
gador se movimente nas direções Norte 
ou Sul basta adicionar ou subtrair seis 
da variável L. Isso fará com que o jo- 
gador suba ou desça uma linha comple- 
ta no mapa. De modo semelhante, mo- 
ver o jogador nas direções Leste ou Oes- 
te significa adicionar ou subtrair | de L. 

As instruções das linhas 1010 a 1040 
verificam o conteúdo da variável IS e 
ajustam o valor de L. As saidas possi- 
veis são definidas nas linhas que seguem 
as descrições dos locais. 

Se não há uma saida na direção que 
o jogador escolheu, a linha 1060 apre- 
senta a mensagem: “DESCULPE — 
VOCÊ NÃO PODE SEGUIR POR Es- 
TE CAMINHO.” 

Dimensionando adequadamente o 
mapa, você poderá utilizar essas rotinas 
em outros programas, bastando alterar 
as instruções das linhas 1010 e 1030. 

Grave o programa, e aguarde à con- 
tinuação da aventura, 
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DATILOGRAFIA: 
ALFABETO COMPLETO 






No artigo da página 249 apresenta- 
mos a primeira parte de um programa 
completo para aprender datilografia. 
Tendo já dominado razoavelmente o 
uso das teclas da fileira do meio — ou 
seja, se você datilografa cerca de 15 pa- 
lavras por minuto, sem cometer nenhum 
erro —, é hora de passar para o segun- 
do estágio. 





AS TECLAS QWERTY 


Atrescentando as linhas que se se- 
guem ao programa do artigo anterior, 
você poderá treinar também as teclas da 
fileira de cima do teclado: a chamada fi- 





leira QWERTY (é desta fileira que vem 
o nome dado aos teclados usados em 
computadores). 

Carregue o programa antigo e digite 
as linhas que se seguem conforme o ti- 
po de seu microcomputador. Algumas 
delas substituirão linhas previamente 
existentes — que agora se tornaram des- 
necessárias —, ao passo que outras são 
totalmente novas. 


30 LET 5S$=" QAWSEDRFTGYHUJIKOL 
Pp” 


210 
230 


FOR K=6 TO 24 
LET R$=8S(K-5) 





Se você já dominou o uso das teclas 
centrais, é hora de treinar a 
datilografia com todo o alfabeto. Para 
isso, veja como alterar o programa 
apresentado no artigo anterior. 


320 LET RN=INT (RND*19)+1 


330 PRINT AT 10,RN+5,;"*": LET 
R$=S$ (RN) 

350 PRINT AT 10,RN+5;" " 

440 LET RN=INT (RND*19)+1 

230 PRINT AT 10,13;" 

": PRINT AT 10,13;T$ 

540 FOR M=1 TO LEN TS: PRINT 
AT 9,11+M;” * E 

610 FOR N=1 TO 4: RESTORE 

LET RN=INT (RND*24)+1: FOR K=1 
TO RN: READ XS: NEXT K 


1010 PRINT AT 12,6;55 

2000 DATA "QUEDA”,"TIRO”,"TROLE 
"+ "POLE", "GRALHA”,"RISO”," PORTA 
“+ PATRULHA”, CURSO” ,"PILHA”,"RU 
A”, ILHA” 


2010 DATA "TULIPA”,"PIOLHO”,"IO, 


























DO”,"PIADA”,"JAULA”,"FLORESTA”, 
"OLHO”,"PODER”,"RATO","TROPA”,” 
PISTOLA”, " QUADRA” 


DU 
E e 


10 0B$="QAWSEDRFTGYHUJIKOLP” 
210 
220 
230 
320 
430 
800 


AP=1253 

FOR K=1 TO 19 

AP=AP+1 
AP=1253+RND(19) 
P$=MIDS (0BS,RND(19) 1) 
CLS:PS="";FOR K=1l TO 4 
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* “COMO ACRESCENTAR AS 
TECLAS DAS FILEIRAS SUPERIOR 


“E INFERIOR AO PROGRAMA 


— TECLAS DE OUTRAS FILEIRAS 


9000 DATA QUARTO, LADO, FATOS, SER 
IA,GALHO, JATO, HARPA, LOTERIA, POR 
TA, QUILHA, SADIO, RALA, ORLA, ATILA 
9010 DATA EDITAR, TALHER, DIRETO, 
ULISSES, ILHA, FOGO, JULGAR, ASSADO 


, DERHOTA, HULHA, GASODUTO, LATA, TI 


JOLO 


nd 


10 04$="QAWSEDRFTGYHUJIKOLPÇ” :Z 
S$=CHAS (219) :5$="LIO OZ G” 
210 AP=358 





220 FOR K=1 TO 20 

230 AP=AP+1 

320 AP=359+INT (RND(1)*20) 

430 P$=MIDS (0BS, INT (RND(1)*20)+ 
1,1) 

810 FOR K=1 TO 4:PS=PS+WS (INT(R 
ND(1)*28)+1) +CHR$ (32) :NEXT 

9000 DATA QUARTO, LADO, FATOS, SER 
IA, GALHO, JATO, HARPA, LOTERIA, POR 
TA, QUILHA, SADIO, RAÇA, ORLA ,ATIÇA 


R 

9010 DATA EDITAR, TALHER, DIRETO, 
ULISSES, ILHA, FOGO, JULGAR, JULHO, 
ASSADO, DERROTA, HULHA, GASODUTO, L 
AÇO, TIJOLO 


RE COMO MUDAR 


AS PALAVRAS PARA 
TREINAMENTO 


[8 PRATIQUE COM 


TODO O ALFABETO 


Cai 


10 086$ = "QANWNSEDREFTGT 
EUJILKRKOLP GS” 

210 AP = = 1 

220 FOR K = 1 TO 20:AP = AP + 

2: GOSUB 1100: NEXT 

320 AP = 1 + INT ( RND (1) * 2 

BD) * 2 

420 FOR K = 1 TO 20:P$S = MIDS 
(OBS, INT ( RND (1) * 20) * Z 

1 d+) 

610 FOR K = 1 TOS:P3S = PS+W 

S( INT ( RND (1) * 28) + 1) + 


(Om 


CHARS (32): NEXT 
1010 VTAB 12: HTAB 1: 


PRINT OB 


E) 

9000 DATA QUARTO, LADO, FATOS, 
SERIA,GALHO, JATO, HARPA, LOTERIA, 
PORTA, QUILHA, SADIO, RALA, ORLA, AT 
ILA 

9010 DATA EDITAR, TALHER, DIRE 
TO, ULISSES, ILHA, FOGO, JULGAR, JUL 
HO, ASSADO, DERROTA, HULHA, GASODUT 
O AÇO» EIVDLO 


Quando o programa for executado, 
a tela exibirá o menu usual, com cinco 
opções. O nível 1 exibe a sequência de 
letras QAWSEDRFTGYHUJIKOLP. 
Dependendo de seu computador, o te- 
clado também incluirá um caractere fi- 
nal: ; ou Ç. Da mesma forma que o pro- 
grama anterior, um asterisco imediata- 












quere À 


mente abaixo das letras na tela funcio- 
nará como um sinal de prontidão, ca- 
minhando da esquerda para a direita. 

Os níveis 2 e 3 funcionam exatamen- 
te como o primeiro, levando você a di- 
gitar os caracteres aleatoriamente, mas 
com uma série muito maior de letras. 

Os níveis 4 e 5 são mais dificeis do 
que os anteriores, porque envolvem a di- 
gitação de palavras mais extensas, for- 
madas por letras das duas diferentes fi- 
leiras. 

Para começar a usar O programa, 
sente-se diante do teclado e posicione os 
dedos corretamente na fileira do meio. 
Tente digitar as teclas da linha superior 
movimentando apenas o dedo que for 
necessário para cada uma e não toda a 










PALAVRA INDICADA 


* 
JACA 


278 





mão (veja a ilustração). Utilize o dedo 
mínimo da mão esquerda para acionar 
oQouoA,o dedo anular parao S e 
o W, e assim por diante, até o dedo mi- 
nimo da mão direita, que deve ser usa- 
do para acionar a tecla P, Os dedos in- 
dicadores trabalharão mais que todos — 
o indicador esquerdo será utilizado pa- 
raoF,G,Re7T, enquanto o indicador 
direito se encarregará das letras H, J, Y 
e U. Depois de ter pressionado uma te- 
cla da fileira superior, volte com o de- 
do à posição inicial, na tecla de apoio. 


TECLAS ZXCV 





"Quando estiver digitando com preci- 
são e rapidez as teclas da fileira supe- 


pv &* 
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rior juntamente com as da fileira cen- 
tral, comece a usar as teclas da fileira 
Inferior (Z, X, C, V, B, etc.) 

Nesta parte do curso, você ainda não 
trabalhará com as três fileiras. Antes 
disso, aprenderá a utilizar as teclas das 
fileiras central e inferior do teclado, si- 
multaneamente, com exercícios em cin- 
co níveis de dificuldade. 

Eis aqui as alterações que deverá efe- 
tuar: 


Es 


30 LET S$=" AZSXKDCFVGBHNJMKL ” 
210 FOR K=6 TO 21 
320 LET RN=INT (RND*16)+1 
440 LET AN=INT (RND*16)+1 


610 FOR N=1 TO 5: RESTORE : 
LET RN=INT (RND*24)+1: FOR K=1 
TO RN: READ XS: NEXT K 
1010 PRINT AT 12,6;"55" 
2000 DATA "CASA”,"FACA”,"VAZA”, 
"LAVA", "MACA”,"VACA”,"BABACA”,” 
JACA”,"JAZZ”,"BANDA”,"BALA”,"CA 
LCA” 
2010 DATA "SALVA","CALA”,"AMA”, 
"FALA”,"DA”","AFAGA”,"ALCANCA”,” 
MANHA”, "CANA”,"LAZANHA”," SAGA”, 
“CHAMA” 


10 0B$="AZSXDCFVGBHNJMKL" 
220 FOR K=1 TO 16 


320 AP=1253+AND(16) 

430 PS=MIDS (0BS,AND(16),1) 

800 CLS:P$="":FOR K=1l TO 5 

9000 DATA FACA, LAVA, LAMA, BALANC 
O, VAGA, NASA, JACA, SAMBA, MACA, AVA 
NCA, VANDA, AJAX, CHAMADA, VALHALA, 
CALHA, CANSADA 

9010 DATA LAMBADA, BANANA, GAMBA, 
BANDA, CANA, ABAFA, CANALHA, MASSA, 
ZAGA, MANHA, CASCA, SALVA 


4 


LO 0B$=" AZSKDCFVGBHENJMK,L.Ç :Z5 
=-CHRS (219) :S$="LIO OZ G” 

220 FOR K=1 TO 19 

320 AP=359+INT (AND (1)*19) 

430 P$=MIDS (0BS, INT (RND(1)*19)+ 
1, d]) 

9000 DATA FACA, LAVA, LAMAÇAL, BAL 
ANÇA, VAGA, NASA, JACA, SAMBA, MACA, 
AVANÇA, VANDA, AJAX, CHAMADA, VALHA 
LA, CALHA, CANSADA 

9010 DATA LAMBADA, BANANA, GAMBA, 
BANDA, CANA, ABAFA, CANALHA, MASSA, 
ZAGA, MANHA, CAÇA, BAÇA 










é iS 


10 0B$ = "A ZSXKDCFVGBRERE 
NO ER sora 4” 

220 FOR K = 1 TO Il9:AP = AP + 
2: GOSUB 1100: NEXT 

320 AP = 1 + INT ( RND (1) * 1 


DD é 

420 FOR K = 1 TO 20:PS = MIDS 
(OBS, INT ( RND (1) * 19) * 2 

us PPP 


9000 DATA FACA,LAVA,LAMA, BALA 
NCA, VAGA, NASA, JACA, SAMBA, MACA, À 











VANCA, VANDA, AJAX, CHAMADA, VALHAL 
A,CALHA, CANSADA 

9010 DATA LAMBADA, BANANA, BAN 
DA, CANA, ABAFA, CANALHA, MASSA, ZAG 
A, MANHA, CALA, BALA, GAMBA 


Com esse programa, você também 
fará exercícios em cinco níveis de difi- 
culdade, mas com palavras que utilizam 
as letras das fileiras central e inferior do 
teclado. 

Mais uma vez, sente-se diante do te- 


K 


RED 


CTRL 


"so 
D NDA G 


RUN 
STOP 


SHIFT 
LOCK | | ; 


n] | “ f md [no : 
ta, s 


SHIFT E. a . 
“BS 


7 APLICAÇÕES 7 


clado, com os dedos posicionados cor- 
retamente. Agora você movimentará 
seus dedos para baixo, para a fileira in- 
ferior, antes de retornar às teclas de 
apoio. O dedo mínimo da mão esquer- 
da irá pressionaro A eo Z, o anular O 
Seo X e assim por diante. O dedo indi- 
cador da mão esquerda será utilizado 
para as letras F, G, Ve B, co indicador 
da mão direita para H, J, NeM. Os de- 
dos restantes deverão operar as teclas 


4 


RAM 
ue TE 


Feita RJ 


mis RUIê 
Mi 


Ca 
o fam PRE 


de pontuação situadas na fileira infe- 
rior, em posições que variam de tecla- 
do para teclado. No Spectrum, elas não 
estão disponíveis sem o <SYMBOL 
SHIFT >, cujo emprego será explicado 
futuramente. 

Observe que essas teclas não estão in- 
cluídas nos testes de palavras — você de- 
verá praticar a pontuação com um pro- 
grama adicional, que apresentaremos 
em artigo posterior. 








Depois de dominar o uso conjunto 
das teclas das fileiras superior e inferior 
do teclado, você estará apto a ingressar 
no estágio seguinte do curso. Afinal, vo- 
cé poderá praticar a datilografia utilizan- 
do todo o alfabeto. Apenas as teclas de 
números e de pontuação permanecerão 
temporariamente excluídas do treino. 

Eis aqui as alterações que deverá efe- 
tuar no programa: 


30 LET 5$="QAZWSXEDCRFVTGBYHN 
UJMIKOLP” 

40 FOR K=2 TO 27 
£30 LET RS=SS(K-1) 

320 LET RN=INT (RND*26)+1 


330 PRINT AT 10,RN+1;"*": LET 
R$=SS (RN) 

350 PRINT AT 10,RN+1;” ” 

440 LET RN=INT (RND*26)+1 

530 PRINT AT 10,13;" 

": PRINT AT 10,13;TS 

540 FOR M=1 TO LEN TS: PRINT 
AT 9,11+M;” * á 

610 FOR N=1 TO 5: RESTORE : 
LET RN=INT (RND*24)+1: FOR K=] 


TO RN: READ XS: NEXT K 

1010 PRINT AT 12,2;55 

2000 DATA "QUIETO”,"LONGE”","ASI 
LO”, "MENTE”","LOCAL”","TRADICAO”, 
"RESPOSTA”,"ATRAVES”","DRIBLE”," 
RETORNO”, "DESPEDIDA”,"ESCRITA” 
2010 DATA “ESCOLA”," INFERNO”,"P 
ROFESSOR”,"CHATO”,"TELEVISAO”,” 
BURRA”, “ESPORTE”, "BOM”,"COMPUTA 
DOR”, "MELHOR”," INPUT","PERFEITO 
= 


10 0BS$="QAZWSXEDCREFVTGBYHNUJMIK 
OLP” 

210 AP=1248 

220 FOR K=l TO 26 

320 AP=1248+RND (26) 

430 PS=MIDS (0BS,RND(26),1) 

800 CLS:P$="":FOR K=1 TO 4 

1020 PRINT €257,0BS 

9000 DATA MARIA, MULHER, JEITO, CH 
EGAR, QUENTE, COSTUME, LOCAL, BONIT 
à, DECOTE, CONVERSA, UTERO, JAPAO, C 
ORRIDA, AZUL 

9010 DATA BANDEIRA, AVIAO, VAZIO, 
ABERTO, HALITO, XAXADO, ALCALINO,U 
NIDOS, PRESSA, QUERIDA, GUARDIAO,A 
BOBORA, NAVIO, REMORSO 


ro 


10 0B$="QAZWSXEDCRFVTGBYHNUJMIK 
+OL.PÇ”:Z5=CHRS (219) :S$="LI1O 02 
G" 
210 
220 
320 


AP=353 
FOR K=1 TO 29 
AP=353+INT(RND(1)*29) 





430 PS=MIDS (0BS, INT (RND(1)*29)+ 
1,1) 

1010 LOCATE 0,12:PRINTOBS 

9000 DATA MARIA,MULHER, JEITO,CH 
EGAR, QUENTE, COSTUME, CANÇÃO, BONI 
TA, DECOTE, CONVERSA, ÚTERO, JAPÃO, 
CORRIDA, AZUL 

9010 DATA BANDEIRA, AVIÃO, VAZIO, 
ABERTO, HALITO, XAXADO, ALCALINO,U 
NIDOS, PRESSA, QUERIDA, GUARDIÃO, A 
BOÓBORA, NAVIO, REMORSO 


10 OBS = 
1K,0L.P:” 
210 AP = Q 

220 FOR K = 1 TO 29:AP = AP + 
l: GOSUB 1100: NEXT 


"QAZWSXEDCRFVTGBYHNUJM 


320 AP = 1 + INT ( RND (1) * 2 

9) 

420 FOR K = 1 TO 20:PS = MIDS 
(0BS, INT ( RND (1) * 29) + 1, 


1) 

9000 DATA MARIA,MULHER, JEITO, 
CHEGAR, QUENTE, COSTUME, CANCAO, BO 
NITA, DECOTE, CONVERSA, UTERO, JAPA 
O, CORRIDA, AZUL 

9010 DATA BANDEIRA, AVIAO,VAZI 
O, ABERTO, HALITO, XAXADO, ALCALINO 
| UNIDOS, PRESSA, QUERIDA, GUARDIÃO 
| ABOBORA, NAVIO, REMORSO 


Como acontece com todos os progra- 
mas deste curso, assim que você estiver 
familiarizado com as palavras constan- 
tes nas declarações DATA, poderá tro- 
cá-las por novas palavras. Quase sem- 
pre, os programas para outras máqui- 
nas incluem palavras diferentes. Se qui- 
ser, aproveite-as em seu computador, 
mas verifique se não está utilizando um 
número de palavras menor que o do 
programa original. Caso isso ocorra, vo- 
cê obterá uma mensagem de erro OUT 
OF DATA. E, se colocar mais palavras 
do que as existentes, elas não serão li- 
das pelo computador, a menos que vo- 
cê modifique o programa. 

Siga as cinco lições, como nos está- 
gios anteriores. Lembre-se sempre de co- 
locar os dedos de volta nas posições cor- 
retas de apoio, na fileira do meio, toda 
vez que pressionar uma tecla das carrei- 
ras inferior ou superior. 


APERFEICOAMENTO 





Na medida em que o curso for progre- 
dindo, você terá a oportunidade de se 
aperfeiçoar cada vez mais, adquirindo 
velocidade e precisão na datilografia 
com todas as letras do alfabeto, Em se- 
guilda, começará a praticar com as teclas 
de números e de pontuação — essenciais 
para a digitação das listagens de pro- 
gramas. 





Como acentuar textos em portu- 
guêés em um microcomputador? 

Depende muito da linha ou da mar- 
ca do micro. O problema não foi tecni- 
camente resolvido de maneira unifor- 
me pelos fabricantes nacionais, pois 


durante muito tempo não houve um pa- | 


drão industrial obrigatório. Entre os 
computadores pessoais cobertos por 
INPUT, apenas os micros da linha MSX 
seguem o padrão atual de representa- 
ção dos sinais característicos da língua 
portuguesa — o chamado BRASCII, 
que é a extensão brasileira do código 
ASCII. 

O BRASCII, além de definir os códi- 
gos numéricos para as letras acentua- 
das (á, à, Á, À, ô, etc.), determina ain- 
da a localização padronizada da cedi- 
lha e dos acentos grave, agudo, til e cir- 
cunflexo, no teclado do microcompu- 
tador. Portanto, a maneira de usá-los, 
na datilografia, é idêntica à de uma má- 
quina de escrever. Da mesma forma, o 
comportamento do teclado e do vídeo, 
durante a datilografia das letras acen- 
tuadas, deve ser igual: por exemplo, ao 
se pressionar a tecla com o til, este si- 
nal aparece no vídeo, e o cursor fica pa- 
rado no mesmo lugar; ao se pressionar 
a letra a, ela aparece imediatamente 


| abaixo do acento, 
" QOsmicros de outras linhas (Apple Il, | 
TRS-8B0, TRS-Color e Sinclair), por se- | 


rem copiados de modelos norte-ame- 
ricanos e ingleses, dão ao problema 


respostas diferentes. As soluções ado- | 


tadas variam de um teclado inteiramen- 
te compatível com o de uma máquina 


| de escrever (por exemplo, o Microen- 


genho Il, da Spectrum, que pertence à | 


linha Apple), até a impossibilidade to- 
tal de acentuação (micros compatíveis 


com as linhas Sinclair ZX-B1 e TRS- | 


Color). 
Alguns micros brasileiros da linha 
Apple adotaram o padrão do chamado 


teclado inteligente, ou teclado profis- | 


sional, em que certas teclas são usa- 
das para digitar a letra já acentuada, 
com uma única pressão. A localização 
destas teclas não coincide, evidente- 
mente, com a de uma máquina de es- 
crever, e seu acionamento depende da 


pressão simultânea de uma ou mais te- | 


clas adicionais de controle. Este proce- 
dimento dificulta a datilografia, pois di- 
fere muito da maneira natural de se 
usar uma máquina de escrever e com- 
promete bastante a velocidade da di- 


gitação. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





INnnnENO PRÓXIMO NÚMERO! 


PROGRAMAÇÃO BASIC 
Aperfeiçoe as técnicas de programação estruturada, 
aprendendo a elaborar uma rotina de ordenação. 


APLICAÇÕES 
Prosseguindo o curso de datilografia, você verá como 
incluir no programa os números e símbolos do teclado. 


CÓDIGO DE MÁQUINA 
Deixe o computador converter o Assembly para código de 
máquina. Aqui, um Assembler para os usuários do TRS-Color. 


PERIFÉRICOS 


O joystick é um sistema de controle versátil 
e barato. Utilize-o. | 


| 


| 
| 





